home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Tele / D-F / FSP-BD.sit / FSPC(CheckPath) < prev    next >
Encoding:
Text File  |  1992-04-06  |  4.3 KB  |  115 lines  |  [TEXT/MSWD]
  1. *
  2. * Define pathname labels                                     *
  3. *
  4. DEFINE "TRANSPATH" "SCSI:BBS:TRANS"
  5. DEFINE "TICPATH" "SCSI:BBS:TIC"
  6. *
  7. ***************************************************************
  8. * Define macro to check the path of sections                  *
  9. *                                                             *
  10. * This macro loads the section, and checks to see if the file *
  11. * entries still lead to a valid file. If not marks them for   *
  12. * deletion and then adds them to a master list of deleted     *
  13. * files, then purges them, sorts them by title and then       *
  14. * resaves the section.                                        *
  15. ***************************************************************
  16. CLEAR
  17. DEFINEMACRO "Check"
  18. LOAD "@1"
  19. CHECKPATH/DELETE
  20. ADDTO/DELETE "TRANSPATH:DeletedFiles"    ;Add all deleted files to delete sect
  21. PURGE                                    ;Purge the deleted file
  22. SORT/TITLE
  23. SAVE "@1"
  24. ENDMACRO
  25. *
  26. ******************************************************
  27. * Check paths of sections for missing files          *
  28. * Go do the checkpath macro                          *
  29. ******************************************************
  30. Check "TRANSPATH:AMIGA:AMIGA"
  31. Check "TRANSPATH:APPLE:APPLE"
  32. Check "TRANSPATH:COM64:COMMODORE"
  33. Check "TRANSPATH:FIDO:FIDO"
  34. Check "TICPATH:IBM:IBM:IBMAPPS:IBMAPPS"
  35. Check "TICPATH:IBM:IBM:IBMART:IBMART"
  36. Check "TICPATH:IBM:IBM:IBMC:IBMC"
  37. Check "TICPATH:IBM:IBM:IBMCOMM:IBMCOMM"
  38. Check "TICPATH:IBM:IBM:IBMGAMES:IBMGAMES"
  39. Check "TICPATH:IBM:IBM:IBMMISC:IBMMISC"
  40. Check "TICPATH:IBM:IBM:IBMPASCAL:IBMPASCAL"
  41. Check "TICPATH:IBM:IBM:IBMUTIL:IBMUTIL"
  42. Check "TICPATH:MAC:MAC:MACAPPS:MACAPPS"
  43. Check "TICPATH:MAC:MAC:MACDA:MACDA"
  44. Check "TICPATH:MAC:MAC:MACEDUC:MACEDUC"
  45. Check "TICPATH:MAC:MAC:MACFKEY:MACFKEY"
  46. Check "TICPATH:MAC:MAC:MACFONT:MACFONT"
  47. Check "TICPATH:MAC:MAC:MACGAMES:MACGAMES"
  48. Check "TICPATH:MAC:MAC:MACGRAPH:MACGRAPH"
  49. Check "TICPATH:MAC:MAC:MACHC:MACHC"
  50. Check "TICPATH:MAC:MAC:MACINIT:MACINIT"
  51. Check "TICPATH:MAC:MAC:MACPROG:MACPROG"
  52. Check "TICPATH:MAC:MAC:MACSOUND:MACSOUND"
  53. Check "TICPATH:MAC:MAC:MACTELE:MACTELE"
  54. Check "TICPATH:MAC:MAC:MACUTIL:MACUTIL"
  55. Check "TICPATH:MAC:MDN:MDNADMIN:MDNADMIN"
  56. Check "TICPATH:MAC:MDN:MDNDEMO:MDNDEMO"
  57. Check "TICPATH:MAC:MDN:MDNGAMER:MDNGAMER"
  58. Check "TICPATH:MAC:MDN:MDNINFO:MDNINFO"
  59. Check "TICPATH:MAC:MDN:MDNOTHER:MDNOTHER"
  60. Check "TICPATH:MAC:MDN:MDNPROG:MDNPROG"
  61. Check "TICPATH:MAC:MDN:MDNTELE:MDNTELE"
  62. Check "TICPATH:MAC:MDN:MDNUTIL:MDNUTIL"
  63. Check "TICPATH:MAC:MDN:MDNEDUC:MDNEDUC"
  64. Check "TICPATH:MAC:MDN:MDNPCMAC:MDNPCMAC"
  65. Check "TICPATH:MAC:MFN:MFNFONT:MFNFONT"
  66. Check "TICPATH:MAC:MFN:MFNPROG:MFNPROG"
  67. Check "TICPATH:MAC:MFN:MFNEDUC:MFNEDUC"
  68. Check "TICPATH:MAC:MFN:MFNHC:MFNHC"
  69. Check "TICPATH:MAC:MFN:MFNUTIL:MFNUTIL"
  70. Check "TICPATH:MAC:MFN:MFNTELE:MFNTELE"
  71. Check "TICPATH:MAC:MFN:MFNDA:MFNDA"
  72. Check "TICPATH:MAC:MFN:MFNINIT:MFNINIT"
  73. Check "TICPATH:MAC:MFN:MFNGAMES:MFNGAMES"
  74. Check "TICPATH:MAC:MFN:MFNSOUND:MFNSOUND"
  75. Check "TICPATH:MAC:MFN:MFNGRAPH:MFNGRAPH"
  76. Check "TICPATH:MAC:MFN:MFNAPPS:MFNAPPS"
  77. Check "TICPATH:IBM:PDN:PDNAI:PDNAI"
  78. Check "TICPATH:IBM:PDN:PDNASM:PDNASM"
  79. Check "TICPATH:IBM:PDN:PDNBASIC:PDNBASIC"
  80. Check "TICPATH:IBM:PDN:PDNBATCH:PDNBATCH"
  81. Check "TICPATH:IBM:PDN:PDNCEE:PDNCEE"
  82. Check "TICPATH:IBM:PDN:PDNGNU:PDNGNU"
  83. Check "TICPATH:IBM:PDN:PDNGNDOS:PDNGNDOS"
  84. Check "TICPATH:IBM:PDN:PDNLANG:PDNLANG"
  85. Check "TICPATH:IBM:PDN:PDNNEWS:PDNNEWS"
  86. Check "TICPATH:IBM:PDN:PDNOS2:PDNOS2"
  87. Check "TICPATH:IBM:PDN:PDNOTHER:PDNOTHER"
  88. Check "TICPATH:IBM:PDN:PDNPASCL:PDNPASCL"
  89. Check "TICPATH:IBM:PDN:PDNUNIX:PDNUNIX"
  90. Check "TICPATH:IBM:PDN:PDNWIN:PDNWIN"
  91. Check "TICPATH:IBM:PDN:PDNSC_UUCP:SC_UUCP"
  92. Check "TICPATH:IBM:SDN:SDN_BUSI:SDN_BUSI"
  93. Check "TICPATH:IBM:SDN:SDN_COMM:SDN_COMM"
  94. Check "TICPATH:IBM:SDN:SDN_DATA:SDN_DATA"
  95. Check "TICPATH:IBM:SDN:SDN_GRAP:SDN_GRAP"
  96. Check "TICPATH:IBM:SDN:SDN_MISC:SDN_MISC"
  97. Check "TICPATH:IBM:SDN:SDN_UTIL:SDN_UTIL"
  98. Check "TICPATH:IBM:SDN:SDN_WORD:SDN_WORD"
  99. Check "TICPATH:IBM:SDN:SDN_SYST:SDN_SYST"
  100. Check "TICPATH:IBM:SDN:SDN_OTHR:SDN_OTHR"
  101. Check "TICPATH:IBM:SDN:SDN_GAME:SDN_GAME"
  102. Check "TICPATH:BACKBONE:BACKBONE"
  103. Check "TICPATH:ECHOLIST:ECHOLST"
  104. Check "TICPATH:NODEDIFF:NODEDIF"
  105. Check "TICPATH:FIDONEWS:FIDONWS"
  106. Check "TICPATH:SERVICES:SERVICES"
  107. Check "TICPATH:ECHOPOL:ECHOPOL"
  108. Check "TICPATH:FILEMOVE:FILEMOVE"
  109. Check "TRANSPATH:NEWMUG:NEWMUG"
  110. Check "TRANSPATH:POLICE:LEDS"
  111. *
  112. CHAIN "SCSI:BBS:FSPC(SDNCheck)"
  113. *
  114. END
  115.